﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>   
<% Response.ContentType = "text/vnd.wap.wml; charset=utf-8"
	Response.Buffer = True 
	Response.ExpiresAbsolute = Now() - 1 
	Response.Expires = 0 
	Response.CacheControl = "no-cache" 
	Response.AddHeader "Pragma", "no-cache"
	Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
        Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
        Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.2//EN"" ""http://www.wapforum.org/DTD/wml12.dtd"">"
        Response.Write "<wml>"
        Response.Write "<head>"
        Response.Write "<meta http-equiv=""Cache-Control"" content=""ust-revalidate"" forua=""true""/>"
        Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache"" forua=""true""/>"
        Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/>"
        Response.Write "<meta http-equiv=""Expires"" content=""0"" forua=""true""/>"
        Response.Write "<meta http-equiv=""Pragma"" content=""no-cache"" forua=""true""/>"
        Response.Write "</head>"
%>
 
<% 
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
 t = GetBody(Path)      
End function
function getHTTPPage(url) 
dim Http 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open "post",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing 
if err.number<>0 then err.Clear 
end function 

Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
%>
